home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FM Towns: Free Software Collection 11
/
FM Towns Free Software Collection 11.iso
/
t_os
/
data
/
mee
/
wiew.plt
< prev
Wrap
Text File
|
1995-08-20
|
2KB
|
86 lines
var a[1024*256];
var b[1024];
var c[1024];
var l[1024];
var al[1024];
var ln[1024];
var file[256];
var val[256];
var sp[1];
var cr[1];
sp:={ };
cr:=@xc({0d});
var Date[256];
var MessageID[256];
var From[256];
var To[256];
var Subject[256];
var Path[256];
var ml[1];
var ma[1];
tab(7);
chat({Yes});
case(@mcheck=0,{No},{mclose(1);});
/*mopen(@mlast+1);*/
madd(@mlast+1,{});
file:=@filesel({LIS});
file:=@tail(@getcdir,{},{\})|{\}|file;
case (@tail(file,{.}),{LZH},{
setcdir({d:\tmp});
command({b:lha e }|file);
file:=@filesel;
});
/*a:=@read(file);*/
/*write(@filesel,a);*/
fopen(file);
/*a:=@read(file);*/
l:=0;
loop({
b:=@fread;
/*b:=@head(a,{\n});a:=@body(a,{\n});*/
case(@nochar(b)>@nochar(@head(b,{\n})),
{Yes},{l:=l+1;},
{No},{b:=b|@fread;},
);
/*footnote(b);*/
al:=@head(b,{>})|{> }|@body(b,{#});
/*footnote(al);*/
madd(@mlast,al);
/*mopen(@mlast,0,21,639,400);
case(@mcheck=0,{No},{mclose(1);});
*/
im(b<>{});
});
fclose;
ml:=@mlast;
loop({
case(@mcheck=0,{No},{mclose(1);});
mopen(ml,0,21,639,300);
case(@mcheck=0,{No},{mclose(1);});
waitx(99999);
case(@xtype,ml,{
b:=@head(@xline(0),sp,{>});
/* display(@nolmemo(@mlast));*/
al:=@tail(@read(file),b,{#});
footnote({file(}|@head(al,{>},{/})|{,}|@head(al,{/},{[})|{,}|
@head(al,{[},{]})|{)});
a:=@read(@head(al,{>},{/}),@head(al,{/},{[}),@head(al,{[},{]}));
case(@mcheck=0,{No},{mclose(1);});
madd(ml+1,a);
mopen(@mlast,0,21,639,300);
waitx(99999);
case(@mcheck=0,{No},{mclose(1);});
mclear(ml+1);
/* mclose(3);*/
footnote();
});
im({Yes});
});